home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.003 / stk-3 / stk / 3.1 / STk / Frame.stklos < prev    next >
Encoding:
Text File  |  1996-07-29  |  1.4 KB  |  42 lines
  1. ;;;;
  2. ;;;; F r a m e . s t k       --  Frame class definition
  3. ;;;;
  4. ;;;; Copyright ⌐ 1993-1996 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
  5. ;;;; 
  6. ;;;; Permission to use, copy, and/or distribute this software and its
  7. ;;;; documentation for any purpose and without fee is hereby granted, provided
  8. ;;;; that both the above copyright notice and this permission notice appear in
  9. ;;;; all copies and derived works.  Fees for distribution or use of this
  10. ;;;; software or derived works may only be charged with express written
  11. ;;;; permission of the copyright holder.  
  12. ;;;; This software is provided ``as is'' without express or implied warranty.
  13. ;;;;
  14. ;;;;           Author: Erick Gallesio [eg@kaolin.unice.fr]
  15. ;;;;    Creation date: 30-Mar-1993 15:39
  16. ;;;; Last file update: 28-Sep-1995 22:48
  17.  
  18. (require "Basics")
  19.  
  20. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  21. ;;;;
  22. ;;;; <Frame> class
  23. ;;;;
  24. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  25.  
  26. (define-class <Frame> (<Tk-simple-widget> <Tk-sizeable>)
  27.   ((class    :accessor    class
  28.         :init-keyword     :class
  29.         :allocation    :tk-virtual)
  30.    (color-map    :accessor    color-map
  31.         :init-keyword    :color-map
  32.         :allocation    :tk-virtual
  33.         :tk-name    colormap)
  34.    (visual    :accessor    visual
  35.         :init-keyword    :visual
  36.         :allocation    :tk-virtual)))
  37.  
  38. (define-method tk-constructor ((self <Frame>))
  39.   Tk:frame)
  40.  
  41. (provide "Frame")
  42.